ggmap(map_nyc, extent = "device") +
geom_point(aes(x=park_f$lng,
y=park_f$lat),
data=park_f, col="red", size=1)+
ggtitle("Park")

ggmap(map_nyc, extent = "device") +
geom_point(aes(x=restaurant_f$lng,
y=restaurant_f$lat),
data=restaurant_f, col="red", size=1)+
ggtitle("Restaurant")

ggmap(map_nyc, extent = "device") +
geom_point(aes(x=police_f$lng,
y=police_f$lat),
data=police_f, col="red", size=1)+
ggtitle("Police")

ggmap(map_nyc, extent = "device") +
geom_point(aes(x=school_f$lng,
y=school_f$lat),
data=school_f, col="red", size=1)+
ggtitle("School")
